home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / CMDGeneral / DESOTO14.1.SDA / CUSTOM MENU .NAV (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  541b  |  17 lines
  1. 2000 POKE43,PEEK(30983):POKE44,PEEK(30984):POKE45,PEEK(30985):POKE46,PEEK(30987)
  2. 2070 IFD5=0THEND5=D2
  3. 2071 OL=1:ONFMGOTO2080,2185,2185
  4. 2080 R=5:C=29:GOSUB115:POKECH,C7:PRINT" [195]UST[205]ENU ":POKECH,C1
  5. 2083 SR$="(C)1990CMTILLMAN":GOSUB1090:IFEXTHEN2185
  6. 2084 D1=DV:DV=FD:CLOSE15:OPEN15,DV,15
  7. 2085 GOSUB510:FM=1:SR$=FD$+"????????????.CUS":GOSUB560:DV=D1:IFEXTHEN2185
  8. 2087 CLOSE15:OPEN15,FD,15:IFEXTHEN2185
  9. 2090 IFLEFT$(N$(1),1)=" "THENFS=0
  10. 2105 FORT=1TOFS:N$(T)=LEFT$(N$(T),12):NEXT
  11. 2110 GOTO300
  12. 2115 IFFM=2THEN2185
  13. 2120 FM=2:PS$=FD$+N$(F)+".CUS":RU$="RUN":DV$=","+STR$(FD)+",1:":GOTO865
  14. 2185 CLOSE5:GOSUB1185:R=5:C=29:GOSUB115:POKECH,C2:PRINT" [195]UST[205]ENU ":POKECH,C1
  15. 2195 EX=0:WF=0:D5=0
  16. 2197 GOTO300
  17.